package JasPerl::RequestWrapper;

use strict;
use warnings;

sub get_attribute           { $_[0]->get_request()->get_attribute($_[1]) }
sub set_attribute           { $_[0]->get_request()->set_attribute($_[1], $_[2]) }
sub remove_attribute        { $_[0]->get_request()->remove_attribute($_[1]) }
sub get_attribute_names     { $_[0]->get_request()->get_attribute_names() }

sub get_parameter           { $_[0]->get_request()->get_parameter($_[1]) }
sub get_parameter_values    { $_[0]->get_request()->get_parameter_values($_[1]) }
sub get_parameter_names     { $_[0]->get_request()->get_parameter_names() }
sub get_parameter_map       { $_[0]->get_request()->get_parameter_map() }

sub get_header              { $_[0]->get_request()->get_header($_[1]) }
sub get_headers             { $_[0]->get_request()->get_headers($_[1]) }
sub get_header_names        { $_[0]->get_request()->get_header_names() }

sub get_character_encoding  { $_[0]->get_request()->get_character_encoding() }
sub get_content_length      { $_[0]->get_request()->get_content_length() }
sub get_content_type        { $_[0]->get_request()->get_content_type() }

sub get_reader              { $_[0]->get_request()->get_reader() }

sub get_locale              { $_[0]->get_request()->get_locale() }
sub get_locales             { $_[0]->get_request()->get_locales() }

sub get_cookies             { $_[0]->get_request()->get_cookies() }

sub get_scheme              { $_[0]->get_request()->get_scheme() }
sub get_method              { $_[0]->get_request()->get_method() }
sub get_protocol            { $_[0]->get_request()->get_protocol() }
sub get_server_name         { $_[0]->get_request()->get_server_name() }
sub get_server_port         { $_[0]->get_request()->get_server_port() }
sub get_script_name         { $_[0]->get_request()->get_script_name() }
sub get_path_info           { $_[0]->get_request()->get_path_info() }
sub get_path_translated     { $_[0]->get_request()->get_path_translated() }
sub get_query_string        { $_[0]->get_request()->get_query_string() }
sub get_request_uri         { $_[0]->get_request()->get_request_uri() }
sub get_request_url         { $_[0]->get_request()->get_request_url() }
sub is_secure               { $_[0]->get_request()->is_secure() }

sub get_session             { shift->get_request()->get_session(@_) }
sub get_remote_user         { $_[0]->get_request()->get_remote_user() }
sub get_auth_type           { $_[0]->get_request()->get_auth_type() }

sub get_local_addr          { $_[0]->get_request()->get_local_addr() }
sub get_local_name          { $_[0]->get_request()->get_local_name() }
sub get_local_port          { $_[0]->get_request()->get_local_port() }
sub get_remote_addr         { $_[0]->get_request()->get_remote_addr() }
sub get_remote_host         { $_[0]->get_request()->get_remote_host() }
sub get_remote_port         { $_[0]->get_request()->get_remote_port() }

1;
